COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	INDEX OF PROCEDURES (total of 119)
C00008 ENDMK
C⊗;
INDEX OF PROCEDURES (total of 119)
procedure EXITT (CODE :  integer); P5-L131 (CALLED 3 TIMES)
PROCEDURE PRINTERROR ;  6-1 (3)
PROCEDURE ENDOFLINE ;  6-33 (4)
  PROCEDURE ERROR(FERRNR: INTEGER);  6-61 (286)
  PROCEDURE INSYMBOL;  7-1 (166)
    PROCEDURE SKIPBLNK; 7-11 (2)
    PROCEDURE NEXTCH; 7-33 (49)
    PROCEDURE OPTIONS; 7-49 (4)
  PROCEDURE ENTERID(FCP: CTP); 8-1 (21)
  PROCEDURE SEARCHSECTION(FCP: CTP; VAR FCP1: CTP); 8-25 (3)
  PROCEDURE SEARCHID(FIDCLS: SETOFIDS; VAR FCP: CTP); 8-38 (20)
  PROCEDURE GETBOUNDS(FSP: STP; VAR FMIN,FMAX: INTEGER); 8-78 (4)
% PROCEDURE PRINTTABLES(FB: BOOLEAN); 8-96 (4)
    PROCEDURE MARKER; 8-100 (1)
      PROCEDURE MARKCTP(FP: CTP); FORWARD; 8-104 (6)
      PROCEDURE MARKSTP(FP: STP); 8-106 (11)
      PROCEDURE MARKCTP; 8-127 (6)
    PROCEDURE FOLLOWCTP(FP: CTP); FORWARD; 8-142 (5)
    PROCEDURE FOLLOWSTP(FP: STP); 8-144 (11)
    PROCEDURE FOLLOWCTP; 9-1(5)
  PROCEDURE GENLABEL(VAR NXTLAB: INTEGER); 9-74
  PROCEDURE BLOCK(FSYS: SETOFSYS; FSY: SYMBOL; FPROCP: CTP); 9-78
    PROCEDURE SKIP(FSYS: SETOFSYS); 9-81
     PROCEDURE ALIGN(VAR Q:ADDRRANGE;  P: ADDRRANGE) ; 9-90
    PROCEDURE CONSTANT(FSYS: SETOFSYS; VAR FSP: STP; VAR FVALU: VALU); 9-101
    PROCEDURE TYP(FSYS: SETOFSYS; VAR FSP: STP; VAR FSIZE: ADDRRANGE); 10-8
      PROCEDURE SIMPLETYPE(FSYS:SETOFSYS; VAR FSP:STP%; VAR FSIZE:ADDRRANGE\);10-12
      PROCEDURE FIELDLIST(FSYS: SETOFSYS; VAR FRECVAR: STP;VAR RECALN: ALNRNG);10-110
    PROCEDURE LABELDECLARATION; 11-1
    PROCEDURE CONSTDECLARATION; 11-31
    PROCEDURE TYPEDECLARATION; 11-54
    PROCEDURE VARDECLARATION; 11-96
    PROCEDURE PROCDECLARATION(FSY: SYMBOL); 11-153
      PROCEDURE PARAMETERLIST(FSY: SETOFSYS; VAR FPAR: CTP); 11-158
    PROCEDURE BODY(FSYS: SETOFSYS); 12-146 (4)
      PROCEDURE PUTIC; 12-176
      PROCEDURE GEN0(FOP: OPRANGE); 13-1
      PROCEDURE GEN1(FOP: OPRANGE; FP2: INTEGER); 13-7
      PROCEDURE GEN2(FOP: OPRANGE; FP1,FP2: INTEGER); 13-31
      PROCEDURE GEN3(FOP: OPRANGE; FP0,FP1,FP2: INTEGER); 13-92
      PROCEDURE LOAD; 13-105
      PROCEDURE STORE(VAR FATTR: ATTR); 13-141
      PROCEDURE LOADADDRESS; 13-153
      PROCEDURE GENFJP(FADDR: INTEGER); 13-177

      PROCEDURE GENUJPFJP(FOP: OPRANGE; FP2: INTEGER); 13-186
      PROCEDURE GENCUPENT(FOP: OPRANGE;FP0,FP1,FP2: INTEGER;PROCNAME: ALPHA); 13-194
 	PROCEDURE MKNAME(VAR ALB: ALPHA; NLB: INTEGER ) ; 13-197
      PROCEDURE GENDEF(L1, L2: ADDRRANGE ) ; 13-233
      PROCEDURE CHKBNDS(FSP: STP); 13-240
      PROCEDURE PUTLABEL(LABNAME: INTEGER); 14-1
%CTR\  PROCEDURE CTREMIT(CTRT:CTRTYPE; CTRNO:CTRRANGE; FLN, MLN, LLN:INTEGER) ; 14-19
      PROCEDURE STATEMENT(FSYS: SETOFSYS); 14-37
	PROCEDURE EXPRESSION(FSYS: SETOFSYS); FORWARD; 14-42
	PROCEDURE SELECTOR(FSYS: SETOFSYS; FCP: CTP); 14-44
	PROCEDURE CALL(FSYS: SETOFSYS; FCP: CTP); 15-1
	  PROCEDURE VARIABLE(FSYS: SETOFSYS); 15-4
 	PROCEDURE  RWSETUP(DFILE: ALPHA) ; 15-14
	  PROCEDURE GETPUTRESETREWRITE; 15-42
	  PROCEDURE READ1; 15-53
	  PROCEDURE WRITE1; 15-94
	  PROCEDURE PACK1; 15-166
	  PROCEDURE UNPACK1; 15-194
	  PROCEDURE NEW1; 16-1 (1)
	  PROCEDURE MARK1; 16-46
	  PROCEDURE RELEASE1; 16-54
 	  PROCEDURE TRAP1 ;16-62
MARK